home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Utilities / Money97 / install.script < prev    next >
Text File  |  1997-06-25  |  25KB  |  555 lines
  1. ;
  2. ;
  3. ; Installer-Script for Money97 V1.02
  4. ; ----------------------------------
  5. ;
  6. ; Money97 is (c) 1997 Christoph Rickers <C.Rickers@tu-bs.de>
  7. ; $VER Installer-Script for Money97, V0.94b (c) 25-Jun-97 Kai Philippsen <Kai.Philippsen@uni-bremen.de>
  8. ;
  9.  
  10.  
  11. ; Defaults
  12.  
  13. (set #dest "")
  14.  
  15. (set @default-dest "Sys:")
  16.  
  17. (if (= @language "deutsch")
  18.     (set #def_lang 1)
  19.     (set #def_lang 0)
  20. )
  21.  
  22.  
  23. ; Language select
  24.  
  25. (set #lang
  26.      (askchoice
  27.         (prompt "Please select your preferred language.\nBitte die bevorzugte Sprache wählen.")
  28.         (help   (cat "The chosen language will be used during the installation progress.\n\nDie gewählte Sprache wird während der Installation verwendet.\n\n\n" @askchoice-help))
  29.         (choices "English" "Deutsch")
  30.         (default #def_lang)
  31.      )
  32. )
  33.  
  34.  
  35. ; Language Data
  36.  
  37. ; Assign English Texts
  38.  
  39. (if (= #lang 0)
  40.     (
  41.     (set #MSG_START "\n\nWelcome!\n\nThis script will install, update or remove all required\nfiles for Money97 V0.94b on your Harddisk.\n\nMoney97 is © 1997\nby Christoph Rickers <c.rickers@tu-bs.de>\n\nPlease report problems during installation to\nKai Philippsen <kai.philippsen@uni-bremen.de>")
  42.     (set #MSG_DIR "Where do you wish Money97 V0.94b to be installed?\nA drawer named `Money97' will be created there.")
  43.     (set #MSG_DIR_HELP (cat "Choose the harddisk partition and optionally subdirectories, where you wish the program to be installed. A drawer named `Money97' will be created and all files will be copied there."
  44.                         "\n\nIf `Money97' already exists you will be asked to update your installation. None of your own project files will be deleted during this progress.\n\n\n" @askdir-help))
  45.     (set #MSG_NOMUI "\n\nOups, Magic-User-Interface was not found on your system! Please abort installation of Money97 V0.94b and install MUI first. You need at least V3.6 of MUI.\n\n")
  46.     (set #MSG_MENU "Do you want to...")
  47.     (set #OS_ERROR "\n\nSorry, you need at least OS 3.0 to run Money97!\n\n")
  48.     (set #MSG_IMAGE "Which set of images do you wish to use in the program?")
  49.     (set #MSG_IMAGE_HELP (cat "Money97 uses a button interface for the main control functions.\n\nIf you are running your Workbench with 16 or more colours you can install the image set with 16 colours. If you use less than 16 colours the image set with 8 colours should look much nicer. In addition there are two sets you can use together with MagicWB.\n\n\n" @askchoice-help))
  50.     (set #MSG_8 " 8 color buttons")
  51.     (set #MSG_16 "16 color buttons")
  52.     (set #MSG_plain "Plain style for MagicWB")
  53.     (set #MSG_grad "Gradient style for MagicWB")
  54.     (set #MSG_DOCS "Which documentations would you like to be copied?")
  55.     (set #MSG_DOCS_HELP (cat "Money97 comes with an English documentation in several formats. Here you can select the ones you wish to be copied to your harddisk.\n\n"
  56.                         "ASCII-TEXT: Plain text\n\n"
  57.                         "AmigaGuide: This documentation uses the hypertext format of the Amiga. You need Multiview to read it. This document is also used for the built-in online help.\n\n"
  58.                         "LaTeX-DVI: To read or print this documentation you need an complete installation of LaTeX.\n\n"
  59.                         "HTML: This hypertext is used for documents at the World-Wide-Web. You need a web browser to read this.\n\n"
  60.                         "IFF-Pictures: Some screenshots of Money97 are included in this package. If you copy them, they can be used with the Guide and HTML documentation.\n\n\n" @askchoice-help))
  61.     (set #MSG_CATS "Which languages in addition to English (built-in) do you wish to install?")
  62.     (set #MSG_CATS_HELP (cat "Money97 is localized and will use texts in any languages you install a catalog file for. English is built-in.\n\n\n" @askchoice-help))
  63.     (set #MSG_DEL "In which directory have you installed the Money97 drawer?")
  64.     (set #MSG_DEL_HELP (cat "Please select the directory with the drawer `Money97' in it, do not select this drawer itself.\n\nIf you continue the script this drawer and all files in it will be deleted.\n\n\n" @askdir-help))
  65.     (set #DEL_MSG "\n\n\nDo you\nREALLY\nwant to DELETE your installation of the wonderful\nMoney97\n???\n\nNote: Your project data will also be erased.\nUse the `install/update' feature, if you only want to change some files...")
  66.     (set #DEL_MSG_HELP (cat "Select `Yes' if you want to delete your Money97 drawer.\n\nSelect `No' to keep your installation.\n\n\n" @askbool-help))
  67.     (set #ADE "\nMoney97 V0.94b is now removed from your harddisk.\n\nIf you decided to do so because you really disliked the program, please send a comment to\nChristoph Rickers <c.rickers@tu-bs.de>\n\nEven bad feedback can be useful for the future development of Money97.\n\nThank you for the time you spend in trying Money97!")
  68.     (set #KEY_MSG "\nYour personal keyfile is now installed.\n\nPlease note, that you are not allowed to give it to other people. Refer to the licence section in the documentation for more info.\n\nThank you for supporting the shareware concept!")
  69.     (set #KEY_ASK "\n\nYour personal keyfile was found.\n\nDo you wish to install it?")
  70.     (set #KEY_ASK_HELP "Please note that Money97 is a shareware product. Because of paying your share, you got a keyfile for Money97. This identifies you as a registered user and allows you to use all functions of the program without any restrictions.\n\nIf you are installing Money97 on your own system, you should copy the keyfile to your Money97 drawer.")
  71.     (set #UPDATE "\nIn the path you specified an older installation of Money97 was found.\n\nThis script takes care of all your project data and of newer program versions.\n\nYou can continue now and use the script to update your image set, the documentations, the program itself or to install a keyfile.")
  72.     (set #OV_HELP "The version of Money97 you wish to install is older or same version as an already installed one.\n\nIf you select `Yes' the installed version will be overwritten with the actual one.\n\nIf you are not sure, that you got a newer version of Money97, select `No' to skip this part.")
  73.     (set #OV1 "\nThe version of Money97 you try to install is identical or even older than the already installed version.\n\n\nVersion of the installed program is ")
  74.     (set #OV2 "\nVersion of the program you try to install is ")
  75.     (set #OV3 "\n\n\nDo you want to overwrite the installed file anyway?")
  76.     (set #PUH "\n\n\nPoooooh...\n\nYour files were NOT deleted and can be found on your harddisk.")
  77.     (set #KEY_DIR "Where do you wish your keyfile to be installed?")
  78.     (set #KEY_DIR_HELP (cat "If you are collecting your keyfiles in S: you can also do with Money97.key. Otherwise you can copy it to the programs drawer.\n\n\n" @askdir-help))
  79.     (set #PDIR "in the Money97 directory")
  80.     (set #SDIR "in S:")
  81.     (set #EXAM "Do you wish to install the example projects?")
  82.     (set #EXAM_HELP (cat "To show you the possibilities of Money97 some examples for projectfiles are included. If you wish them to be copied to the `Projects' drawer, choose `Yes'.\n\n\n" @askbool-help))
  83.     (set #DOC_PICS "GIF-Pictures (for Guide and HTML)")
  84.     (set #INST "\n\nDo you wish to install the installation script?\n\nThis might be useful in some cases, for example if you like to be able to remove Money97 easily.")
  85.     (set #INST_HELP "The installation of the script to your harddisk is not really necessary. You can use it to delete all files from Money97 if you really like to or to update your program. Since new versions of Money97 will also include such a script and you also need a complete archiv to update images or documentations, feel free not to copy it at the moment.")
  86.     (set #COPY_MAIN "\nNow copying the main program...")
  87.     )
  88. )
  89.  
  90. ; assign German language
  91.  
  92. (if (= #lang 1)
  93.     (
  94.     (set #MSG_START "\n\nWillkommen!\n\nDieses Skript installiert, aktualisiert oder entfernt alle für\n Money97 V0.94b benötigten Dateien auf ihrer Festplatte.\n\nMoney97 ist © 1997\nby Christoph Rickers <c.rickers@tu-bs.de>\n\nBitte melden sie Probleme mit der Installation an\nKai Philippsen <kai.philippsen@uni-bremen.de>")
  95.     (set #MSG_DIR "In welchem Verzeichnis soll Money97 V0.94b installiert werden?\nEin Verzeichnis namens `Money97' wird dort automatisch erzeugt.")
  96.     (set #MSG_DIR_HELP (cat "Wählen sie eine Festplattenpartition und optional noch Unterverzeichnisse, in denen sie das Programm installieren möchten. Ein Verzeichnis namens `Money97' wird im gewählten Pfad erzeugt und alle Dateien dort hineinkopiert."
  97.                         "\n\nExistiert dort bereits ein Verzeichnis `Money97', so können sie die Installation aktualisieren. Dabei werden keine ihrer eigenen Projektdateien gelöscht.\n\n\n" @askdir-help))
  98.     (set #MSG_NOMUI "\n\nOups, Magic-User-Interface scheint nicht installiert zu sein. Bitte brechen sie die Installation von Money97 V0.94b ab und installieren sie zuerst MUI. Sie benötigen mindestens V3.6 von MUI.\n\n")
  99.     (set #MSG_MENU "Möchten sie...")
  100.     (set #OS_ERROR "\n\nSie benötigen mindestens OS 3.0 um Money97 benutzen zu können!\n\n")
  101.     (set #MSG_IMAGE "Welches Bilderset soll das Programm benutzen?")
  102.     (set #MSG_IMAGE_HELP (cat "Die wichtigsten Menüfunktionen von Money97 können per Mausklick auf eine Buttonleiste aufgerufen werden.\n\nWenn sie ihre Workbench üblicherweise mit 16 oder mehr Farben laufen lassen, können sie die 16farbigen Bilder hierfür verwenden. Benutzen sie weniger als 16 Farben, so sehen die Bilder in 8 Farben wahrscheinlich besser aus. Außerdem liegen zwei Sets bei, die sie zusammen mit MagicWB benutzen können.\n\n\n" @askchoice-help))
  103.     (set #MSG_8 " 8farbige Knöpfe")
  104.     (set #MSG_16 "16farbige Knöpfe")
  105.     (set #MSG_plain "Plain-Set für MagicWB")
  106.     (set #MSG_grad "Gradient-Set für MagicWB")
  107.     (set #MSG_DOCS "Welche Anleitungen sollen mitkopiert werden?")
  108.     (set #MSG_DOCS_HELP (cat "Zu Money97 gibt es deutsche Anleitungen in mehreren Formaten. Wählen sie beliebig viele Formate aus, die sie gerne auf ihrer Festplatte haben möchten.\n\n"
  109.                              "ASCII-Text: Anleitung im puren Textformat.\n\n"
  110.                              "AmigaGuide: Anleitung im Hypertextformat des Amigas, die mit Multiview gelesen werden kann und auch als Onlinehilfe dient.\n\n"
  111.                              "LaTeX-DVI: Mit LaTeX erzeugte Anleitung. Zum lesen oder ausdrucken benötigen sie eine TeX-Installation.\n\n"
  112.                              "HTML: Hypertextformat des World-Wide-Web. Diese Anleitung können sie mit einem Webbrowser lesen.\n\n"
  113.                              "GIF-Bilder: Diesem Archiv liegen einige Bilder der Programmfenster von Money97 bei. Wenn sie sie kopieren, können sie von der Guide- und der HTML-Anleitung verwendet werden.\n\n\n" @askchoice-help))
  114.     (set #MSG_CATS "Welche weiteren Sprachen außer Englisch (eingebaut) möchten sie installieren?")
  115.     (set #MSG_CATS_HELP (cat "Money97 benutzt das Locale-Konzept. Es kann daher seine Texte in jeder Sprache darstellen, für die sie eine Catalog-Datei installieren. Englisch ist in das Programm eingebaut.\n\n\n" @askchoice-help))
  116.     (set #MSG_DEL "In welches Verzeichnis haben sie die Money97-Schublade installiert?")
  117.     (set #MSG_DEL_HELP (cat "Wählen sie das Verzeichnis in dem sich die Schublade `Money97' befindet, bitte wählen sie nicht die Schublade selbst!\n\nWenn sie mit dem Skript fortfahren, wird diese Schublade mit samt dem Inhalt gelöscht.\n\n\n" @askdir-help))
  118.     (set #DEL_MSG "\n\n\nWollen sie\nWIRKLICH\nihre Installation des wunderbaren Programmes\nMoney97\nLÖSCHEN???\n\nAchtung: Ihre Projektdateien werden ebenfalls gelöscht!\nBenutzen sie die `installieren/aktualisieren' Funktion, wenn sie nur einzelne Dateien ersetzen wollen.")
  119.     (set #DEL_MSG_HELP "Wenn sie es sich gut überlegt haben, daß sie Money97 löschen wollen, wählen sie `Ja'.\n\nWenn sie dieses wundervolle Progamm doch lieber behalten möchten, wählen sie einfach `Nein'.")
  120.     (set #ADE "\nMoney97 V0.94b ist nun von der Festplatte gelöscht.\n\nWenn sie sich zu diesem Schritt entschieden haben, weil ihnen etwas an dem Programm mißfällt, schicken sie bitte einen Kommentar an\nChristoph Rickers <c.rickers@tu-bs.de>\n\nAuch negative Rückmeldungen können dazu beitragen, ein Programm zu verbessern.\n\nDanke für das Ausprobieren von Money97!")
  121.     (set #KEY_MSG "\nIhr persönliches Keyfile wurde installiert.\n\nBitte beachten sie, daß sie diese Datei auf keinen Fall an andere Personen weitergeben dürfen. Lesen sie den Abschnitt `Copyright' in der Anleitung für weitere Informationen.\n\nDanke für ihre Unterstützung der Shareware-Idee!")
  122.     (set #KEY_ASK "\n\nIhr persönliches Keyfile wurde gefunden.\n\nMöchten sie es installieren?")
  123.     (set #KEY_ASK_HELP "Money97 ist Shareware. Durch zahlen ihres Beitrages haben sie ein Keyfile bekommen, daß sie als registrierten Benutzer von Money97 ausweist und es ihnen ermöglicht, alle Funktionen des Programms ohne Einschränkungen benutzen zu können.\n\nWenn sie Money97 gerade auf ihrem eigenen Rechner installieren, sollten sie die Datei auf jeden Fall mitkopieren.")
  124.     (set #UPDATE "\nIn dem von ihnen gewählten Pfad wurde bereits eine Installation von Money97 gefunden.\n\nDieses Skript sorgt jedoch dafür, daß keine neuen Dateien durch alte überschrieben oder bereits erstellte Projektdateien gelöscht werden.\n\nSie können daher wie gewohnt fortfahren und eine neue Programmversion, andere Images, Anleitungen oder ein Keyfile installieren.")
  125.     (set #OV_HELP "Die Version von Money97, die sie gerade installieren wollen, ist älter oder genauso alt wie eine bereits installierte Version.\n\nWählen sie `Ja', wenn sie die Version auf der Festplatte trotzdem mit der aktuellen Fassung überschreiben wollen.\n\nWenn sie sich nicht sicher sind, daß sie eine neuere Version haben, wählen sie `Nein', um dies zu umgehen.")
  126.     (set #OV1 "\nDie bereits installierte Version von Money97 ist identisch mit der, die sie gerade installieren wollen oder sogar neuer!\n\n\nVersionsnummer auf der Festplatte ist ")
  127.     (set #OV2 "\nVersionsnummer des zu installierenden Programms ist ")
  128.     (set #OV3 "\n\n\nWollen sie trotzdem das bereits installierte Programm überschreiben?")
  129.     (set #PUH "\n\n\nPuuuuuuuh...\n\nIhre Dateien wurden NICHT gelöscht und befinden sich immer noch auf der Festplatte.")
  130.     (set #KEY_DIR "Wohin möchten sie ihr Keyfile installiert haben?")
  131.     (set #KEY_DIR_HELP (cat "Wenn sie es gewohnt sind, Keyfiles in ihrem S: Verzeichnis zu sammeln, können sie auch Money97.key dort platzieren. Ansonsten können sie ihr Keyfile auch im Money97-Verzeichnis installieren.\n\n\n" @askdir-help))
  132.     (set #PDIR "ins Money97 Verzeichnis")
  133.     (set #SDIR "in S:")
  134.     (set #EXAM "Möchten sie die Beispielprojekte installieren?")
  135.     (set #EXAM_HELP (cat "Um ihnen die Möglichkeiten von Money97 zu demonstrieren, sind einige Beispiele für Projektdateien angefügt. Wenn sie diese in das `Projects' Verzeichnis kopieren möchten, wählen sie bitte `Ja'.\n\n\n" @askbool-help))
  136.     (set #DOC_PICS "GIF-Bilder (für Guide und HTML)")
  137.     (set #INST "\n\nMöchten sie auch das Installationsskript installieren?\n\nDies kann z.B. sinnvoll sein, wenn sie die Money97 Installation möglichst einfach wieder entfernen wollen.")
  138.     (set #INST_HELP "Es ist nicht unbedingt notwendig, das Installationsskript zu installieren, zumal auch eine neue Version von Money97 immer wieder ein aktualisiertes Skript enthalten wird und sie zum Installieren anderer Images oder Anleitungen ohnehin ein komplettes Archiv brauchen, daß wiederum das Skript enthält. Entscheiden sie selbst.")
  139.     (set #COPY_MAIN "\nKopieren des Hauptprogramms...")
  140.     )
  141. )
  142.  
  143.  
  144. ; ---------------------------> Procedures <-----------------------------
  145.  
  146.  
  147. ; Remove Money97 from harddisk
  148.  
  149. (procedure remove
  150.  
  151. (set #del (askdir (prompt #MSG_DEL) (help #MSG_DEL_HELP) (default @default-dest)))
  152.  
  153. (if (NOT(exists (tackon #del "Money97")))
  154.     (abort "\n\nNo drawer Money97 in this directory!\n\n")
  155. )
  156.  
  157. (if (exists (tackon #del "Money97"))
  158.     (
  159.     (set #wirklich
  160.          (askbool
  161.          (prompt #DEL_MSG)
  162.          (help #DEL_MSG_HELP)
  163.          (default 0)
  164.          )
  165.     )
  166.     (if (= #wirklich 1)
  167.         (
  168.         (run (cat "delete \"" (tackon #del "Money97") "\" all"))
  169.         (if (exists (tackon #del "Money97.info"))
  170.             (run (cat "delete \"" (tackon #del "Money97.info") "\""))
  171.         )
  172.         (message #ADE)
  173.         )
  174.     )
  175.     (if (= #wirklich 0)
  176.         (message #PUH)
  177.     )
  178.     )
  179. )
  180. )
  181.  
  182. ;---
  183.  
  184.  
  185. ; Install Money97 on a harddisk
  186.  
  187. (procedure inst
  188.  
  189. (complete 1)
  190.  
  191.  
  192. ; Check for correct OS
  193.  
  194. (if (< (/ (getversion) 65536) 39)
  195.   (
  196.     (abort #OS_ERROR)
  197.   )
  198. )
  199.  
  200.  
  201. ; Check for MUI installed
  202.  
  203.  (if (NOT (exists "libs:muimaster.library"))
  204.      (abort #MSG_NOMUI)
  205.  )
  206.  
  207.  
  208. ; Destination for Money97 drawer
  209.  
  210.  (if (= #dest "")
  211.      (
  212.          (set #dir (askdir (prompt #MSG_DIR) (help #MSG_DIR_HELP) (default @default-dest)))
  213.          (set #dest (tackon #dir "Money97"))
  214.          (if (exists #dest)
  215.              (message #UPDATE)
  216.              )
  217.          (if (NOT (exists #dest))
  218.          (makedir #dest (infos))
  219.          )
  220.      )
  221.  )
  222.  
  223.  
  224. ; Copy main program including version check and Readme1st
  225.  
  226.     (
  227.         (
  228.         (copylib (prompt #COPY_MAIN) (help @copylib-help) (source "Money97") (dest #dest) (confirm) (infos) (noposition))
  229.         (copyfiles (source "") (dest #dest) (pattern "#?.asc") (infos) (noposition))
  230.     )
  231. )
  232.  
  233. (complete 30)
  234.  
  235.  
  236. ; Select button image set
  237.  
  238. (set #images
  239.      (askchoice
  240.      (prompt #MSG_IMAGE)
  241.      (help #MSG_IMAGE_HELP)
  242.      (choices #MSG_8 #MSG_16 #MSG_plain #MSG_grad)
  243.      (default 1)
  244.      )
  245. )
  246.  
  247. (makedir (tackon #dest "images"))
  248. (run "lha x Tb.lha RAM:")
  249.  
  250. (if (= #images 0)
  251.     (copyfiles (source "RAM:excel_8col/") (dest (tackon #dest "images")) (pattern "def#?"))
  252. )
  253.  
  254. (if (= #images 1)
  255.     (copyfiles (source "RAM:excel_16col/") (dest (tackon #dest "images")) (pattern "def#?"))
  256. )
  257.  
  258. (if (= #images 2)
  259.     (copyfiles (source "RAM:mwb_plain/") (dest (tackon #dest "images")) (pattern "def#?"))
  260. )
  261.  
  262. (if (= #images 3)
  263.     (copyfiles (source "RAM:mwb_gradient/") (dest (tackon #dest "images")) (pattern "def#?"))
  264. )
  265.  
  266. (run "delete RAM:mwb_#? all quiet")
  267. (run "delete RAM:excel_#? all quiet")
  268.  
  269. (complete 40)
  270.  
  271. ; Select catalogs to install
  272.  
  273. (makedir (tackon #dest "catalogs"))
  274. (copyfiles (source "catalogs") (dest (tackon #dest "catalogs")) (pattern "Money#?"))
  275. (copyfiles (source "catalogs") (dest (tackon #dest "catalogs")) (pattern "read#?"))
  276.  
  277. (set #cats
  278.      (askoptions
  279.      (prompt #MSG_CATS)
  280.      (help #MSG_CATS_HELP)
  281.      (choices "Deutsch")
  282.      )
  283. )
  284.  
  285. (if (IN #cats 0)
  286.     (
  287.     (makedir (tackon #dest "catalogs/deutsch/"))
  288.     (copyfiles (source "catalogs/deutsch/") (dest (tackon #dest "catalogs/deutsch")) (all))
  289.     )
  290. )
  291.  
  292.  
  293. (complete 50)
  294.  
  295. ; Select documentations to copy
  296.  
  297. (set #docs
  298.      (askoptions
  299.      (prompt #MSG_DOCS)
  300.      (help #MSG_DOCS_HELP)
  301.      (choices "ASCII-Text" "AmigaGuide" "LaTeX-DVI" "HTML" #DOC_PICS)
  302.      )
  303. )
  304.  
  305. (complete 70)
  306.  
  307. ; Copy documentations
  308.  
  309. (if (NOT (exists (tackon #dest "docs")))
  310.     (makedir (tackon #dest "docs") (infos))
  311. )
  312.  
  313. (set #docs_dir (tackon #dest "docs"))
  314.  
  315. (copyfiles (source "docs/") (dest #docs_dir) (pattern "#?.txt") (infos) (noposition))
  316. (copyfiles (source "docs/") (dest #docs_dir) (pattern "TODO") (infos) (noposition))
  317.  
  318. (if (= #lang 1)
  319.     (
  320.     (copyfiles (source "docs/deutsch") (dest #docs_dir) (pattern "RegForm") (infos) (noposition))
  321.     (copyfiles (source "docs/deutsch") (dest #docs_dir) (pattern "AFD-C#?") (noposition))
  322.     (if (IN #docs 0)
  323.         (copyfiles (source "docs/deutsch/") (dest #docs_dir) (pattern "#?.asc") (infos) (noposition))
  324.     )
  325.  
  326.     (if (IN #docs 1)
  327.         (copyfiles (source "docs/deutsch/") (dest #docs_dir) (pattern "#?.guide") (infos) (noposition))
  328.     )
  329.  
  330.     (if (IN #docs 2)
  331.         (copyfiles (source "docs/deutsch/") (dest #docs_dir) (pattern "#?.dvi") (infos) (noposition))
  332.     )
  333.  
  334.     (if (IN #docs 3)
  335.         (copyfiles (source "docs/deutsch/") (dest #docs_dir) (pattern "#?.html") (infos) (noposition))
  336.     )
  337.     (if (IN #docs 4)
  338.         (
  339.          (if (NOT (exists (tackon #docs_dir "pics")))
  340.              (makedir (tackon #docs_dir "pics"))
  341.              )
  342.         (copyfiles (source "docs/pics/") (dest (tackon #docs_dir "pics/")) (pattern "#?.gif"))
  343.     )        
  344.         )
  345.     )
  346. )
  347.  
  348. (if (= #lang 0)
  349.     (
  350.     (copyfiles (source "docs/english/") (dest #docs_dir) (pattern "RegForm") (infos) (noposition))
  351.     (copyfiles (source "docs/english/") (dest #docs_dir) (pattern "AFD-C#?"))
  352.     (if (IN #docs 0)
  353.         (copyfiles (source "docs/english/") (dest #docs_dir) (pattern "#?.asc") (infos) (noposition))
  354.     )
  355.  
  356.     (if (IN #docs 1)
  357.         (copyfiles (source "docs/english/") (dest #docs_dir) (pattern "#?.guide") (infos) (noposition))
  358.     )
  359.  
  360.     (if (IN #docs 2)
  361.         (copyfiles (source "docs/english/") (dest #docs_dir) (pattern "#?.dvi") (infos) (noposition))
  362.     )
  363.  
  364.     (if (IN #docs 3)
  365.         (copyfiles (source "docs/english/") (dest #docs_dir) (pattern "#?.html") (infos) (noposition))
  366.     )
  367.     (if (IN #docs 4)
  368.         (
  369.          (if (NOT (exists (tackon #docs_dir "pics")))
  370.              (makedir (tackon #docs_dir "pics"))
  371.              )
  372.         (copyfiles (source "docs/pics/") (dest (tackon #docs_dir "pics/")) (pattern "#?.gif"))
  373.     )        
  374.         )
  375.     )
  376. )
  377.  
  378. (complete 80)
  379.  
  380. ; Copy Example Projects
  381.  
  382. (if (NOT (exists (tackon #dest "Projects")))
  383.     (makedir (tackon #dest "Projects") (infos))
  384. )
  385.  
  386. (set #examples 0)
  387.  
  388. (set #examples
  389.      (
  390.      (askbool
  391.         (prompt #EXAM)
  392.         (help #EXAM_HELP)
  393.         (default 0)
  394.      )
  395.      )
  396. )
  397.  
  398. (if (= #examples 1)
  399.        (copyfiles (source "") (dest (tackon #dest "Projects/")) (pattern "#?.hcp"))
  400. )
  401.  
  402. (complete 85)
  403.  
  404. (set #installer
  405.      (
  406.      (askbool
  407.         (prompt #INST)
  408.         (help #INST_HELP)
  409.         (default 1)
  410.      )
  411.      )
  412. )
  413.  
  414. (if (= installer 1)
  415.     (
  416.     (copyfiles (source "install.script") (dest #dest))
  417.     (copyfiles (source "Installation.info") (dest #dest))
  418.     )
  419. )
  420.  
  421. (complete 95)
  422.  
  423. ; Search Keyfile
  424.  
  425. (set #key_inst 0)
  426.  
  427. (if (exists "keyfile.lha")
  428. (run "lha x keyfile.lha RAM:")
  429. )
  430.  
  431. ; Ask for installing the Keyfile
  432.  
  433. (if (exists "RAM:Money97.key")
  434.     (
  435.     (set #key_inst
  436.          (askbool
  437.          (prompt #KEY_ASK)
  438.          (help #KEY_ASK_HELP)
  439.          (default 1)
  440.     )
  441.     )
  442.     )
  443. )
  444.  
  445. ; Ask for place for keyfile
  446.  
  447. (if (= #key_inst 1)
  448.     (
  449.     (set #key_select
  450.          (askchoice
  451.          (prompt #KEY_DIR)
  452.          (help #KEY_DIR_HELP)
  453.          (choices #PDIR #SDIR)
  454.          (default 0)
  455.          )
  456.     )
  457.     (if (= #key_select 0)
  458.         (set #key_dir #dest)
  459.     )
  460.     (if (= #key_select 1)
  461.         (set #key_dir "S:")
  462.     )
  463.     (copyfiles (source "RAM:Money97.key") (dest #key_dir))
  464.     (run "delete RAM:Money97.key")
  465.     (message #KEY_MSG)
  466.     )
  467. )
  468.  
  469. (if (exists "Money97.key")
  470.     (
  471.     (set #key_inst
  472.          (askbool
  473.          (prompt #KEY_ASK)
  474.          (help #KEY_ASK_HELP)
  475.          (default 1)
  476.     )
  477.     )
  478.     )
  479. )
  480.  
  481. ; Ask for place for keyfile
  482.  
  483. (if (= #key_inst 1)
  484.     (
  485.     (set #key_select
  486.          (askchoice
  487.          (prompt #KEY_DIR)
  488.          (help #KEY_DIR_HELP)
  489.          (choices #PDIR #SDIR)
  490.          (default 0)
  491.          )
  492.     )
  493.     (if (= #key_select 0)
  494.         (set #key_dir #dest)
  495.     )
  496.     (if (= #key_select 1)
  497.         (set #key_dir "S:")
  498.     )
  499.     (copyfiles (source "Money97.key") (dest #key_dir))
  500.     (run "delete RAM:Money97.key")
  501.     (message #KEY_MSG)
  502.     )
  503. )
  504.  
  505. (complete 100)
  506.  
  507. )
  508.  
  509. ;---
  510.  
  511.  
  512. ; ------------------------------> MAIN <--------------------------------
  513.  
  514. (message #MSG_START)
  515.  
  516.  
  517. ; Ask if install or remove
  518.  
  519. (if (= #lang 0)
  520.     (
  521.     (set #install
  522.          (askchoice
  523.          (prompt #MSG_MENU)
  524.          (help (cat "Select `Install' if you want all files required for Money97 V0.94b to be copied to your harddisk or if you want to update your files. No project data will be deleted!"
  525.                 "\n\nSelect `Remove' if you already have the program installed and you wish to delete all Money97 V0.94b related files from your harddisk.\n\n\n" @askchoice-help))
  526.          (choices "Install or update Money97 V0.94b" "Remove Money97 V0.94b")
  527.          (default 0)
  528.          )
  529.     )
  530.     )
  531. )
  532.  
  533. (if (= #lang 1)
  534.     (
  535.     (set #install
  536.          (askchoice
  537.          (prompt #MSG_MENU)
  538.          (help (cat "Wählen sie `installieren oder aktualisieren' um alle für Money97 V0.94b benötigten Dateien auf ihre Festplatte zu kopieren oder durch neue zu aktualisieren. Es werden keine Projektdateien gelöscht!"
  539.                 "\n\nWählen sie `entfernen' wenn sie bereits das Programm installiert haben und nun alle zu Money97 V0.94b gehörenden Dateien wieder löschen möchten.\n\n\n" @askchoice-help))
  540.          (choices "Money97 V0.94b installieren oder aktualisieren" "Money97 V0.94b entfernen")
  541.          (default 0)
  542.          )
  543.     )
  544.     )
  545. )
  546.  
  547. (select #install
  548.         (inst)
  549.         (remove)
  550. )
  551.  
  552. (set @default-dest #dest)
  553.  
  554. (exit)
  555.